home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / BREAK.M < prev    next >
Encoding:
Text File  |  1981-04-24  |  156 b   |  13 lines
  1. MODULE Break;
  2. (*$N+*)
  3.  
  4. FROM SYSTEM IMPORT ASSEMBLER;
  5.  
  6. BEGIN
  7.   ASSEMBLER
  8.         BREAK
  9.         CLR.W   -(A7)
  10.         TRAP    #1
  11.   END
  12. END Break.
  13.